home *** CD-ROM | disk | FTP | other *** search
/ Popular Request / By Popular Request (Arsenal Computer)(SysOptics Distribution System).ISO / amiga2 / gblnkr30.lha / GBlanker / Remove < prev    next >
Text File  |  1994-04-06  |  2KB  |  45 lines
  1. ;
  2. ; Garshneblanker Removal Script $VER:Garshneblanker 38.1 (25.3.94)
  3. ;
  4.  
  5. (set oldUserLevel (user 3))
  6. (message
  7.  "\nWelcome to the Garshneblanker 3.0 removal script.\n\n"
  8.  "This script will find out where you installed Garshneblanker and where you installed the Garshneblanker modules. "
  9.  "These are the same directories you specified during the first two phases of installation. It will then remove "
  10.  "Garshneblanker from your system."
  11.  )
  12. (user oldUserLevel)
  13.  
  14. (set @default-loc "SYS:WBStartup")
  15.  
  16. (set @default-loc
  17.      (askdir
  18.       (prompt "Where is Garshneblanker installed?")
  19.       (help "The WBStartup directory on your boot disk is probably where it was originally installed.")
  20.       (default @default-loc)
  21.       )
  22.      )
  23.  
  24. (delete (tackon @default-loc "Garshneblanker") (optional "force"))
  25. (delete (tackon @default-loc "Garshneblanker.info") (optional "force"))
  26.  
  27. (set @default-loc
  28.      (askdir
  29.       (prompt "Please select the directory that contains the 'Blankers' directory (so if Garshneblanker was "
  30.               "installed in SYS:WBStartup and the blankers are in SYS:WBStartup/Blankers, then select the "
  31.               "directory SYS:WBStartup)")
  32.       (help "The WBStartup directory on your boot disk is probably where it was originally installed.")
  33.       (default @default-loc)
  34.       )
  35.      )
  36.  
  37. (run "Delete %s ALL FORCE" (tackon @default-loc "Blankers"))
  38.  
  39. (user 3)
  40. (message
  41.  "\nThank you for trying out Garshneblanker. I hope that it met all of your needs. If you have any questions or "
  42.  "ideas for the furtherment of the project, please feel free to e-mail me at:\n\nbaynemd@nextwork.rose-hulman.edu"
  43.  )
  44.  
  45. (exit (quiet))